﻿Imports System.IO
Imports System.Collections.Specialized
Imports System.Windows.Forms.ImageList
Imports System.Globalization
Imports System.Web
Imports System.Runtime.Remoting
Imports DesktopGap
Imports CassiniDev
Imports System.Text

Public Class Form1
    Private pdir As String = Application.StartupPath & "\www\"
    Private _server As CassiniDevServer

    Private Sub Form1_FormClosing(sender As Object, e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
        _server.StopServer()
    End Sub

    Private Sub Form1_Shown(sender As System.Object, e As System.EventArgs) Handles MyBase.Shown
        pdir = "C:\Users\david\Documents\Visual Studio 2010\Projects\ComicReader\ComicViewer"
        _server = New CassiniDevServer()
        _server.StartServer(pdir)
        WebKitBrowser1.Navigate(_server.NormalizeUrl("default.aspx"))
    End Sub
End Class
